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BOLLETTINO DEL CLUB UTENTI MICRO Z-80 L*G* 

NOVEMBRE 1981 


Dogliamo avvertire i nostri soci che il sistema operativo 
CF'/M da noi fornito e' quello originale della DIGITAL. RESEARCH e li 
invitiano a rifiutare confezioni non sigillate e soprattutto non 
contenenti le due cartoline originali che riproduciamo piu' avanti. 
Soltanto inviandole entrambe avrete diritto a ricevere tutti gli 
eventuali aggiornamer.ti e le correzioni relative al CP/M e le notizie 
che vi per«etteranno di sfruttare pienamente questo famoso e 
diffusissimo sistema operativo. 

Coloro che hanno spedito le cartoline hanno già' ricevuto 
le prime due modifiche per utilizzare la stampante direttamente 
ali accensione senza dover dare i.L comando STAI e per poter utilizzare 
i nuovi minifloppy da 80 tracce anziché' 40. Abbiamo in preparazione la 
modifica per utilizzare dischi a doppia faccia e per utilizzare piu' di 
una stampante. 

I CP/M privi delle cartoline sono delle volgari copie molto 
spesso mutilate di alcuni importanti comandi e modificate da 
incompetenti♦ 



* TAGLIANDO DI ISCRIZIONE AL CLUB UTENTI DEMICROCOMPUTER Z-80 L.G. * 


* COGNOft. NOME. 

x 

* VIA. 


* C.A.P. ................................. CITTA'i 


* PROVINCIA, 


TELEFONO. 


* CONFIGURAZIONE MICRO’. 

















Diamo una breve descrizione dei programmi riportati nel 
seguito che sono scritti per il BASIC LG1 e per il BASIC LG2. 

ATTERRAGGIO simula l'atterraggio su un corpo celeste. Occorre 
introdurre due numeri separati da una virgola che indicano 
rispettivamente la spirita e per quanti passi devono rimanere in 
funzione. La spinta deve essere compresa tra +100 e -100. In caso di 
spinta negativa la velocita' di discesa aumenta. Se il valore 
introdotto e' superiore a 100 il computer assume il controllo 
dell'astronave e tenta un atterraggio automatico. 


SOTTOMARINI la nave nella casella 9,9 deve affondare in 20 mosse 3 
sottomarini in un tratto di mare cosparso di mine vaganti. Si può' 
scegliere tra due gradi di difficolta'. 2=facile f l~difficile, si può' 
Manovrare<battendo 0). lanciare bombe di profondita'(1), e ridisegnare 
lo schermo(2). Per individuare i sottomarini si ha a disposizione un 
radar acorto raggio ed uno a lungo raggio. l.a condizione rossa indica 
la presenza di sottomarini nemici. Scegliendo la partita facile il 
radar a corto raggio indica anche il numero di riga dove e' presente il 
sottomar ino » 


HOH viene disegnato un labirinto e lo scopo e' raggiungere, partendo 
dall'angolo in basso a sinistra, l'angolo alto a destra senza farsi 
raggiungere dal nemico che può' attraversare gli ostacoli perdendo 
pero' una mossa. Una volta raggiunto l'obiettivo si deve cercare di 
ritornare alla base. Dopo aver compiuto per quattro volte il percorso 
siete bravissimi e il computer vi punisce spegnendo il labirinto e 
facendovi giocare al buio. (Noi non ci siamo mai riusciti) 


ATTENZIONE: J , ,, 

Leggere attentamente IACCORDO di LICENZA per l’uso de: programmi distribuiti o 
prodotti dalla MICRO LG prima di aprire la confezione. 

Se non siete d’accordo su quanto è scritto nel contratto, ritornate la confezione INTEGRA 
e SIGILLATA al Vs. distributore. 

Compilate in ogni loro parte le cartoline contenute in questa confezione e speditele ai 
relativi indirizzi stampati sul retro di ognuna. Avrete cosi diritto ad essere iscritti nel 
l elenco Utilizzatori CP/M® e riceverete: 

Bollettino Utilizzatori CP/M® 


Notizie e aggiornamenti della Digital RESEARCH, 

Modifiche e miglioramenti della V. 2.2. 

Sconti su prodotti Digital Research Software. 

Un programma utilità CP/M® compatibile della MICRO LG. 



Ho letto attentamente l’Accordo di Licenza per l'uso del Sistema Operativo CP/M® e 
accetto tutti i termini in esso contenuti: 



„ CP/M® Versione .Serie dischetto N. 

... 





Indirizzo 

Città 

___ C.A.P. __ 



16120 GENOVA - Corso Torino, 47 r. - Tel. (OIO) 061808 


Please read thè software license agreement before openlng thè diskette package If you 
do not agree to thè licensing contract, you may return thè System to your distributor for 
refund as long as thè diskette package remains unopened. Upon receipt of this registra- 
tlon card by Digital Research you will become a registered CP/M owner and receive thè 
followlng : 

CP/M® User's Newsletter 

Notices of updates and enhancements to Digital Research Software 
Digital Research Software bug reports and patches 
Discounts on updated version of Digital Research Software 


international 


Research Park. 3030 Leuven, Belgium 


I have read thè Digital Research Software Licensing Agreement and agree to abide by thè 
terms contalned In It : 

Date___CP/M® Veralon... Diskette Serial-- 

Name . Signature . 

(PLEASE PRINT) 

Company --—-----------—.. 

Address ------- --------—- •• 


City 


State 


Zip- 


















5 CLS: C=2: 0=2; F'.T. (5) ; "ATTERRAGGIO PLANETARIO" 

10 P.;T.(5);"PIANETA";T.(15);"GRAVITA'";T.(25); 

11 PNORMA" 

15 REST.:F.H=1T010:READA$,G:Z=INT((G/9.8)* 100+.5> 

20 P„H;T.(5);A$;T.(15);G:T„(25);Z:N.H 

25 P. ; IN. "NUMERO DEL F' IANETA " ; H: IFH< = 1OT. 45 

30 0=1: C=1; H=RND(10) 

35 D.LUNA,1.62,MARTE,3.84,MERCUR10,3.95,PLUTONE,4.89 

40 D. VENERE, 8.72, SATURNO, 8. 77, URANIO, 9. 46, TERRA, 9.80 

41 D.NETTUNO,13.66,GlOVE,23.16 

45 CLS: Z=0; K=— 1 : L=10r. U=0: W=10: T=0: X=0: V=1 
50 REST.:F.1 = 1TOH: READE*,Gs N.I 

55 M=R.<400)+100:F=R.(2000)+3000:R=F:S=0:A=R.(3000)+3000 

56 G0S.445 

60 P.B$; T„ (12);"GRAV.=";G:GOS.445 
65 P.:GOS.445:P.:GOS.445 
75 P. A. 228, "CARE. (X 107.)"; 

80 P.A.257,"0.1.2.3.4.5.6.7.8.9.10" 

85 P. s P. " VELOCITA ’ ( 7. VEL. ) " : P. : p. 

95 P.A.353,"0...30...60...90...120" 

100 P.:GOS.445:P■s P.A.480;C*;C*;C*;C*; 

105 F.I=52T063:S.(1,35):S.(1,36):N.I:N=(-1>*(G*6.4) 

115 F.I=2T043:S.(1,27):N.I:Q=(G/9.8)*((M+F)*10) 

120 T= ( T'*Q > /100: F. È=1 TOX : F=F—ABS ( (T/Q) *60) :F=INT(F) 

125 IFT>OT.S=S+(<T/(M+F))-G) 

130 IFT<=0T.S=S-<(ABS(T)/(M+F)>+G) 

135 IF(S< =N)*(V=1)T.S=N 
i40 A=A+S:A“INT(A):K=K+1sIFA<OT.A=0 
145 IFFCOT.F=0 

150 B=(I.(<1.((F/R)*100+.5)*60)/100+.5)) 

155 P.A.375,:IF(3<(1.2*N))+(S>A.(1.2*N)>T.P.A.375,"+" 
160 IFS<OT » P.A„330,"(\)"; 

165 IFS >=0T.P.A.330,"( A )"; 

170 IFC=1T.D$="SPINTA=":G.175 
173 D$="DURAT.=" 

175 P.A.96,D$;I.(K);T.(12);"CARB.=";F; 

180 P.A.160,"ALT. = "; A;T. (12);"VEL.="; I. (S*10)/IO; 

190 P=A.(I.((S/N)*50)) 

193 IFPCZT.F. I=46T0 (P+2) S. -1 : R. (.1,36) :N. I:Z=P:G.202 

195 IFP>45T.F.I=2T046:S.(1,36):N.I;Z=46:G.202 

200 IFP>ZT. F. I=2T0F‘+2: S. ( I, 36) : N. I s Z=P 

202 F.I=46T0B+2S.-1 :R. (1,27);N.I :IFA=OGOS.250 

206 IFA >10000T.385 

208 IF(L=U)*(A >(L/10))T.228 

210 L.= 10:1 FA > 1OOOOT. 385 

215 IFA< =LT.GOS.285:G.228 

220 L=L*10:G.215 

228 U=L:GOS.245 

230 IF(A. (S)>10 > *(A=0)T.360 

232 IF(A.(S)<=10)*<A=0)T.330 

234 IFA=OT.360 

236 IFW >35T.W=4:GOS.270:G.240 
238 I FW< 3TW=34 ; GOS. 270 
240 N. E : G. 295 

245 IFI.(W)=I„((36—(A/L)*30)-1)T.RET. 


250 F.1=587062:R.<I,W):R. <1,W-l>sR.<1+1,W-2):N.I:IFA-07.RE7. 
255 W= <36- < A/L) *30-1: IFW>35T.W=4 
265 IFW<3T» W=34 

270 F. I=587062S.2:S. <I,W) sM. I:F. 1=587062:S. <I,W--1) :N. I 
275 F.I=597061 :S. < I,W-2):N.I: IFF=OT.325 
280 RE7. 

285 H=L: F. I=56703763.32: 

286 P.A.I,H;:H=H-<L/10)sN.I :GOS.245:RE7. 

295 IF<F=0)+<0=1)7.395 

300 P.A.448," 

305 P. A. 448} : IN. "SPINTA S< DURA7A" ; 7, X : P. A. 473; 

310 V= 1 ; IF < 7 < 0 ) + < S< M ) 7. 0=0 
315 IF < 7 >100) + < 7<-100)7.325 
320 8 .120 


0=1:0=1:6.295 

P.A.416,"C0NGRA7ULAZIONI":P."A77ERRA6GI0 PERFE77Q" 

W=34:GOS.270 

S.<58,32):GOS.355:R.<58,32):F.J=327034:S.<57,J):GOS.355 

R. <57,J):N.J:F.J=5770 52S.-1:S. <J,34):G0S.355:R. <J,34):M.J 

S. <52,33):S.<52,34):S. <52,35) 

F.Z=17020 

R. <53,33):R. <54,33):GOS.355:S.<53,33):S.<54,33):GOS.355 
N,Z:G„450 

F.1=170300;N.I;RE7. 

P.A.448,"AS7R0NAVE DIS7RU77A ! !"; 

F.1=607063:S.<I,34>;N.I;S.<55,33):S.<56,33) 

F. Z=17030 

S. <57,33):S. <60,31):S. <63,33);R. <57,33):R.<60,31) 

R. <63,33):S.<55,32):S.<63,31):R.<55,32):R.<63,31) 

S. <56,29);S.<61,28):R. <56,29):R. <61,28):N.Z 

G. 450 

P.A.448,"SEI PROPRIO EN7RA70 IN 0RBI7A !"; 

F. Z=170100: F. I =5970635.2; S. <I,7) :R. <I-,7) :N. IsN.Z:G.450 
D= 20 : IFA<5007.D=10 
Y=I.<150*G>:IFY<15007.Y=1500 
IFA<1007.D=A/10 


410 IFD<17.D=1 

415 7= <G-D—S)* <M+F): 7=<7*100 )/Q 

420 IFF<=07.P.A.448,"FIN170 IL CARE. ALLARME ROSSO"; :G.430 
425 IFC=17.P.A.448,"C0N7R0LLL0 AL C0MPU7ER"; 

430 IF7>1007.7=100 

435 IF < A >Y) + < 7<0) + < F=0)7.7=0 

440 K=7—1:X=1:G.120 

445 C$= "-" : P. C*; C $5 C$; C$; RE7. 

446 P.A.500;: IN.E* 

450 END 



10 CLS:I."SCRIVI #(1-100)":Z:F.I=1T0Z:J=R.(32767);N.I 
20 I. " F AC I LE=2, PROF. = 1 ** ; T : CLS : G. 4000 
1400 P."DISTRUGGI TUTTI I SOTTOMARINI" 

1500 R=161s F. I=0T09:P.ATR,I ; :R=R+2 s N.I 

1510 R=i92s F.I=0T09:P.ATR,I ? :F.Z=0T09:R=R+2:P.ATR,"-"; 

1520 N. Z:R=R+12:N„ I 
1525 P.AT182;"MOSSE";M; 

1530 P.AT214;"SUBS";S; 

1535 REST.: F. I = 1TOD: READA$:N.I 

1540 F'. AT246; "MINE";N; sP. AT278; "ALLARME"; ; P. AT310; A*; 

1550 P.AT342;"SETTORE"; ;P.AT374;P;Q; 

1560 IFT=2P.AT471;"COMPUTER"; 

1570 P.AT96;;RET. 

1700 F.E=X +1TOX+3;S, (E,Y):N.E:S. (X+2,Y-l):RET. 

1800 F.E=X+1TOX+3:R.(E,Y):N.E:R.(X+2,Y-l):RET. 

1900 V=P* 1 0 +Q:IF < Z=3)*(A < V> < 70)T.2100 

1910 IFZ=3T.4210 

1920 IF(A(V)<70)*(A(V)>0)T.1950 

1940 IFA(V)=70T.1970 

1945 P.AT32,"MANCATO":G.5000 

1950 I =A ( V) : N=N-1 ; A ( V) =0: PAT32, I ; "MI NE DI STRUTTE" : G. 5000 
1970 S=S-1 ; IFS-OCLS;P,"TUTTI I SOTTOMARINI DISTRUTTI";G.7010 
1975 P.AT32,"SOTTOMARINO DISTRUTTO"; A(V)=0;IFV=AT.A=102 
2000 IFV=BT.B=103 
2010 1FV-CT» C=104 
2020 G,5000 

2100 M=M—1 ; I=A(V):N=N-1s A(V)=0:P.AT32,"NAVE COLPITA DA"; I ; 

2101 P,"MINE":D=D+1:G.4227 
2500 F=0:G=I: IFA(I> =70T.A(I>=0 

2510 J=R. ( 8 ):REST, ; F.R=1T04:READA$n N.R:F.R=1T0J;READE:N« R 

2520 F=F+1 ; IFF >1OOT,E=0; I=G:G.2610 

2600 I=I+E: IF < I<O> ■+■ ( I >99) T. I=GsG.2510 

2605 IFA(I)>0T.I=G:G.2510 

2610 A(I)=70 

2630 6 =I : F. R=1T09: I = I+E 

2650 IF <ICO) + <I>99)T.2680 

2660 IFA(I)=2OOT.H=H+1;G.2680 

2670 N.R 

2680 RET. 

4000 F.I=0T099; A(I)=0:N.I;M=20:S=3sN=10:D=1 ; A(99)=200 

4015 P=9;Q=9; A(100)=P: A(101)=Q:GOS.1400 

4030 F.I-lTONsZ=R. (100)-1 ; A(Z)=A(Z)+1 :N.I 

4040 A=R. (100 ) -1: 8 =R. ( 100 ) -1 : OR. ( 100 ) -1 

4050 IF(A=B)+(A=C)+(B=C)+(A(A)+A(B)+A(C)>0)T.4040 

4060 A(A)=70; A(B)=70; A(C)=70:X=39;Y=46:GOS.1700 

4070 P. AT96, "0=MAN0VRA ! , 1=B0MBA, 2=R IDI SEGNA " ; 

4071 I.Z;P.AT32;P„AT96;P=A(100);Q=A(101) 

4080 IFZ=0T.Z=3; A(P* 10+Q)=0;P.AT64,"MANOVRA"; ;G.4100 

4090 IFZ=1T. Z=2: F‘. AT64, "BOMBE PROFONDITÀ" " ; :G.4100 

4093 IFZ=2T„CLS;GOS.1400:GOS.1700;G.5160 

4095 P.AT96,"COMMANDO ILLEGALE"sF.1=1TO1500:N.I:G.4070 

4100 P.AT96;"RIGA E COLONNA"; :I.W,U 

4125 IF(W<O) + (W>9) + (U<0) + (U>9)T.4145 

4130 IF (F'-Z>W) + (P+Z<W) + (Q-Z>U> + <Q+Z<U) T. 4145 

4140 P. AT64:P.AT96:G.4150 



4143 P.AT128 

4145 P.AT96,"TENTAIIVO ILLEGALE"s F.I = 1TO1500:N.IsG.4100 

4150 IFW>PT.P=P+1 

4160 IFWCPT.P=P-i 

4170 IFU >QT.Q=Q+1 

4180 IFUCQT. Q=Q~1 

4190 IFZ=2T.4210 

4200 IFA(P* 10+Q)>0T.1900 

4210 IF < W=P)* < U=Q> T.4225 

4220 6.4150 

4225 IFZ=2T.1900 

4227 A(100)=P:A(101)=Q 

4230 GOS.1800: A <P* 1 0 +Q)=200 

4240 X=3+Q*4s Y=19+P*3: M=M-:L 

4250 GOS.1500:GOS.1700: IFM<OT.P.AT32,"TI SEI ARENATO"5 6 

5000 H=0:IFA>99T.5040 

5020 I=A:GOS.2500:A=G 

5040 IFB>99T.5080 

5060 I=B:GOS.2500;B=G 

5080 IFC>99T.5110 

5100 r=CsGOS.2500;C=G 

5110 IFD>2T„7000 

5120 IFH >0T.P.A.64;"HAI RICEVUTI";H;"COLFI": IFH >1T.7000 
5130 I FH= 1T.. D=D+1 s G. 5150 
5140 D=1 

5150 IFD >2T„7000 
5155 GOS.1530 

5160 L=1; 0=1 :I=A(100)-1sJ=A(101>-1 
5180 F.F=1T03:F.E=1T03 
5200 IF <I<0) + <I>9) + (J<O > + < J >9)T.5220 
5210 IFA(I * 10+J)=70T.0=3:G.5230 
5220 J=J+1;N.E:J=J~3s1=1+1:M.F 
5230 RESI. : F.K=1TOO:READA*:N.K 
5250 P.AT406;"R.C."; A*; 

5253 IF(0=1) + < T<>2)P.AT502 5 " ";: G.5260 

5255 P.AT 502,1; 

5260 I=A(100)-2 s J=A <101)-2:F=0:G=1 :GOS.5500 
5270 I=A<100>-2 s J=A<101)+2:F=1 :G=0 s GOS.5500 
5280 I=A<100)+2;J=A <101)-2:F=0;G=-l:GOS.5500 
5290 I=A <100)+2 s J=A <101)+2:F=-1 :G=0:GOS.5500 
5450 REST.sF.I=1T0L:READA^sN.I:P.AT438;"R.L.A$; 

5460 G.4070 
5500 F.E=1T05 

5510 IF <ICO) + <I>9) + <J<0) + < J >9)T.5530 
5520 I FA < I -1! 10+J ) =70T. L=3s G. 5540 
5530 I = I+F : J --J+G j N „ E 
5540 RET. 

6000 B.VERDE,GIALLO.ROSSO,BANG,-11,-10,-9,1,11,10,9,-1 
7000 D=4:GOS. 1530 5 P.AT96,"SEI STATO AFFONDATO" 

7010 Y=lsN=2:P.AT128,"RIPROVI <Y/N>"; : I.ZsCLS:IFZ=1T.20 
7020 END 


7000 



10 CLSsP. "SCRIVI IL TUO NUMERO FORTUNATO (DA 1 A 1000)":I.Z 
30 F.X=1TQZ:A=R. <32767):N„X 

101 CLS:S=9999:N=0 

102 P.ATO,"VUOI LE ISTRUZIONI<S/N>"; : IN.Z 
104 IFZ=ST.800 

106 IFZ~NT.110 
109 J=0 

1 10 CLS: A=4: B=43:R=4: S=43: C=4: D=7; E=0: Y=9 

115 F„Q=0T063:S. (0,9):S„ (Q„47);N.Q:F.Q=9T047:S. 'O.no s g. <63.P) 

116 N. Q 

120 X=0:W=0:K=0 

130 F.Z=1T09:F.Q=0T03:S. (X+Q,Y):N.Q:X = X+7:N.Z:IFY=47T»170 
140 K»0sY*Y+1:F.Q»1T010jS. ( X , Y ) : X = X+7 : N. Q 
150 X=4s Y=Y+1 : IFW=OW=1 :S. (O,Y); G .130 
160 G„120 

170 F.X=577059:S. < X, 14 > ; S. (X,16):N.X:S. <57,15):S. (59,15) 

175 F.Q=14T016:R„<56,Q):R.(60,Q);N,Q 

176 F» G=56T060:R■ (Q,13);R. (Q,17):N„Q 
ISO F.Q=0T039 

190 X=R« (18)-1 :Y=R. (9):X=X#7+4;Y=Y#4+7:IFX/2<>1„ (X/2)Y=Y+2 
200 F. W=0T0Q-1 ; IFA (W) < >100*X+YN. W; A (Q) = 100*X+Y: G. 22«"> 

210 G.190 

220 IF(A(0)=11615)+(A(Q)=443)+(A(0)=441)T,190 
230 IFJ >3N-Q:G.330 

240 F.Z=X/2-lT0X/2+l:S. <Z„Y-1>:S.(Z,Y):S.(Z,Y+1)sN.Z 
250 N.Q:G.470 

^.òo F'. A I -iZt P. AT32, "MOSSA ILLEGALE" : F. Q=1T01500: N. Q: F'. AT32 
270 A=R:B=S s P.ATOs P.ATO; : IN."QUALE MOSSA":Q:Q=I. (Q) 

275 IF(Q<0)+(Q>6)T.260 
280 IFGN0T.340 

290 F. W= .1TOQ ; READ X , Y: N. W: A=A+Xn B=B+Y; REST, 

300 F.Q=0T039:IFA(Q)=100*A+BT.260 

310 N. Qs IF ( A>1.23) + < A<4> + (B>45) + (B< 1 1 ) T. ?6<“> 

320 X=R:Y=S;GQS.680:R=A:S=B 

330 F„Y=—1T01:S.(R/2,S+Y):N.Y:S.(R/2-1,S):S.(R/2+1.S) 

340 X=C:Y=D:GOS.680: IFE=2E=0:G.400 

350 E=0 : IF ( C< >A) * (D< >B ) C=C>-7 : E=1 : IFC+7< AC=C+1 4 

360 IF < E»1)*(D>B)D=D-2 

370 IF(E= 1)$ (D<B)D=D+2 

380 IF < C=A ) * ( D< >B ) * ( E=0 ) D=D--4 : E= 1 : I FD+4< BD=D+8 

390 IF(C<>A)*(D=B)*(E=0)C=C~7:D=D+2: IFC+7C AC=C+14:D=D-4 

400 F.Q=0T039sIFA(Q)< >100*C+DN.Q:G.420 

410 E=2:X=C:Y=D:GOS.680: A(Q)=0 

420 F.Y=—1T01S.2;F«X=-1T01S.2:S. (C/2+X,D+Y):M.X :N.Y 
425 S.(C/2,D) 

430 IF(C=A)*(D=B)J=0:G.550 

440 IF ( A= 116 ) # ( B= 15 ) * ( K=0 ) K= 1 : G510 

450 IF ( A=4 ) * ( B=43) * (K= 1 ) J=.J+1 ■ G. 580 

460 G.270 

470 IFJ >0T„330 

480 P.ATO,"LA MISSIONE E J ARRIVARE AD ’O’ 

490 P."E TORNARE, ATTENTO AL NEMICO" 

500 F.Q»1T03000:N.Q:P.ATO:P.AT32:G.330 

510 flato, "sei arrivato ad ’q-, ma ora" 

520 P. "DEVI TORNARE INDIETRO AD ’H’,'* 

525 F„Q=1TQ3:R.(Q,41):R.(Q,45):N.Q:R.(4,43) 



530 F.X=1TQ3S.2: S.(X,42);S.(X,43>;S.(X,44):N.XsS.(2,43) 
540 F.Q=1T03000:N.Q:P.ATO:P.AT32:G.270 
550 P.ATO,"HAI FALLITO LA MISSIONE, SEI" 

560 P." STATO CATTURATO DAL NEMICO" s F. <2= ITO 1500! N.Q: G. 650 
570 P.ATOsP.AT32:P.AT64 

580 IFJ = 1 A$=PF; I MA 

581 IFJ=2A$=SEC0NDA 

582 IFJ=3A*=TERZA 

583 IFJ=4A$=QUARTA 
585 IFJ=5A$=ULTIMA 

590 P.ATO,"CONGRATULAZIONI ! HAI SUPERATO" 

595 P."IL TUO NEMICO COMPIENDO LA" 

600 P„"MISSIONE PER LA ";A$5 " VOLTA" 

605 F.Q=1T03000:N.Q:IFJ<=3T.650 

620 P.AT64,"LA PROSSIMA VOLTA NON SARANNO" 

625 P."MOSTRATE LE ZONE PROIBITE."sF.Q=1T01500:N.Q 
650 CLS : N=0 ; IN. " VUOI FARE UN ’ ALTRA MI SS I ONE " ; Q 
660 IFQ=OCLS: END 
670 G.110 

680 F.W=X/2-iT0X/2+i:R. (W,Y~1):R.(W, Y)sR. (W,Y+l)sN.W 
690 RET. 


700 D.0,-4.7,-2,7,2,0,4,~7,2,-7,-2 

800 CLS:P."LE DIREZIONI IN CUI PUOI MUOVE-" 

810 P."RE SONO:"sP."SU, GIU’ 0 IN DIAGONALE." 

820 P.sP."QUESTO E J FATTO CON I NUMERI (SENSO ORARIO): 
830 P."1=SU 1" 


840 

P."2=SU DIAG.DX 


6 

n il 

jl- 

850 

P."3=GIU’ DIAG. 

DX 


P" 

870 

P."4=610’ 


5 

II 

875 

P. "5=GIU : ' DIAG. 

SX 


4" 


880 P."6=SU DIAG. SX" 

885 P. "P= (L.A TUA POSIZIONE)" 

890 P."CONOSCERAI LA TUA MISSIONE DOPO" 

900 P."IL DISEGNO DEL CAMPO DI BATTA-":P."GLIA."; 
905 IN." (PREMI < RETURN» " ; E* 

910 G.109 


II 


Mittente: 
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